home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tt.d64 / tim ven setup.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  74 lines
  1. 5 DATAUP,DOWN,NORTH,SOUTH,EAST,WEST
  2. 6 DIMM$(5):FORT=0TO5:READM$(T):NEXTT
  3. 8 PRINT"[147]THE TIME MACHINE IS SET UP TO GO ON THE BOTTOM LEVEL"
  4. 9 PRINT"SO IN THE ROOM YOU WANT IT TO BE NEXT TOALLOW IT TO GO DOWN!!"
  5. 10 INPUT"NAME OF SECTION";N$
  6. 20 OPEN1,8,2,"@0:TIM VEN1,S,W"
  7. 21 INPUT"DIMENSIONS";A,B,C
  8. 27 INPUT"HOW MANY TYPES OF ROOMS";RT
  9. 28 PRINT#1,N$:PRINT#1,A-1:PRINT#1,B-1:PRINT#1,C-1
  10. 31 PRINT#1,S-1
  11. 32 INPUT"HOW MANY FIGHTS";BE
  12. 33 PRINT#1,BE-1
  13. 34 INPUT"HOW MANY TREASURES";TR
  14. 35 PRINT#1,TR-1
  15. 36 INPUT"HOW MANY GIFTS TO BEASTS";GB
  16. 37 PRINT#1,GB-1
  17. 38 INPUT"HOW MANY COMMENTS ON ROOMS";RC
  18. 39 PRINT#1,RC-1
  19. 40 INPUT"TOTAL AMOUNT OF TREASURE";TT
  20. 41 PRINT#1,TT
  21. 50 FORT=1TOA:FORR=1TOB:FORS=1TOC
  22. 60 PRINT"ROOM "T","R","S
  23. 70 INPUT"NAME OF ROOM";N$
  24. 80 INPUT"ROOM TYPE";N1$
  25. 100 FORW=0TO5
  26. 110 PRINT"CAN YOU GO  "M$(W);
  27. 120 INPUTF$
  28. 130 IFF$="Y"THENX=X+2^W
  29. 140 NEXTW
  30. 150 N$=CHR$(X)+RIGHT$(N1$,1)+N$
  31. 160 PRINT#1,N$
  32. 170 N$="":X=.:NEXTS,R,T
  33. 180 FORT=1TORT
  34. 190 PRINT"ROOM TYPE #"T;
  35. 200 INPUTD$
  36. 210 PRINT#1,D$:NEXTT
  37. 220 FORT=1TOBE
  38. 230 INPUT"ROOM # BEAST GOES IN";N
  39. 240 N$=CHR$(N)
  40. 250 INPUT"GIFT NUMBER (0 IF NONE)";N
  41. 260 N$=N$+RIGHT$(STR$(N),1)
  42. 270 INPUT"NAME OF BEAST";N1$
  43. 280 PRINT#1,N1$
  44. 290 INPUT"COMMENT ON BEAST";N2$
  45. 300 N$=N$+N2$
  46. 310 PRINT#1,N$
  47. 320 NEXTT
  48. 330 FORT=1TOTR
  49. 340 INPUT"NUMBER OF HUNDRED COINS";F
  50. 350 INPUT"ROOM IT GOES IN";RD
  51. 360 INPUT"NAME OF COINS";N$
  52. 370 N$=RIGHT$(STR$(F),1)+CHR$(RD)+N$
  53. 380 PRINT#1,N$:NEXTT
  54. 390 FORT=1TORC
  55. 400 INPUT"ROOM NUMBER COMMENT BELONGS TO";ED
  56. 420 INPUT"COMMENT";N$
  57. 430 N$=CHR$(ED)+N$
  58. 440 NEXTT
  59. 450 FORT=1TOGB
  60. 460 INPUT"ROOM GIFT GOES IN";RF
  61. 470 INPUT"GIFT NAME";N$
  62. 480 N$=CHR$(RF)+N$
  63. 490 NEXTT
  64. 500 INPUT"ROOM SLEEP SPELL GOES IN";FR
  65. 510 PRINT#1,CHR$(FR)
  66. 520 INPUT"ROOM TRAVEL SPELL GOES IN";TR
  67. 530 PRINT#1,CHR$(TR)
  68. 540 INPUT"ROOM HEALING SPELL IS IN";TR
  69. 550 PRINT#1,CHR$(TR)
  70. 560 INPUT"ROOM VANISHING SPELL IS IN";R
  71. 570 PRINT#1,CHR$(R)
  72. 580 CLOSE1
  73. 590 PRINT"[147]THATS ALL"
  74.